home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / util / wb / CopyIcon.lha / CopyIcon / Install < prev    next >
Encoding:
Text File  |  1997-12-08  |  3.7 KB  |  159 lines
  1.  
  2. ;***********
  3. ;*         *
  4. ;* STRINGS *
  5. ;*         *
  6. ;***********
  7.  
  8. (set #LANG_FOUND 0)
  9.  
  10. (if (= "deutsch" @language)
  11.        (
  12.     (set #MSG_WELCOME "Willkommen beim Installations-Skript für \"CopyIcon\".")
  13.     (set #MSG_WELCOME_WARN "\n\nSie benutzen eine alte Version (<42) des Installers. Das könnte unter Umständen Probleme bereiten!")
  14.  
  15.     (set #MSG_SELECTEXEPATH "In welches Verzeichnis soll das Programm  (\"CopyIcon\") kopiert werden?")
  16.     (set #MSG_SELECTDOCPATH "In welches Verzeichnis soll die Dokumentation (\"CopyIcon.guide\") kopiert werden?")
  17.  
  18.     (set #MSG_COPY_EXE "Kopiere CopyIcon")
  19.     (set #MSG_COPY_DOC "Kopiere Dokumentation")
  20.  
  21.     (set #MSG_ICONPOS "Korrigiere Icon Position")
  22.  
  23.     (set #MSG_NOHELP "Keine Hilfe verfügbar. Sorry. Ich bin einfach zu faul :-( Lesen Sie das \"CopyIcon.guide\"!")
  24.  
  25.     (set #LANG_FOUND 1)
  26.        )
  27. )
  28.  
  29. (if (= "italiano" @language)
  30.        (
  31.     (set #MSG_WELCOME "Benvenuto nello script di installazione per \"CopyIcon\".")
  32.     (set #MSG_WELCOME_WARN "\n\nLei possiede una versione vecchia (<42) dell'Installer. Questo potrebbe eventualmente causare dei problemi!")
  33.  
  34.     (set #MSG_SELECTEXEPATH "In che directory devo copiare il programma (\"CopyIcon\")?")
  35.     (set #MSG_SELECTDOCPATH "In che directory devo copiare la documentazione (\"CopyIcon.guide\")?")
  36.  
  37.     (set #MSG_COPY_EXE "Copio CopyIcon")
  38.     (set #MSG_COPY_DOC "Copio documentazione")
  39.     
  40.     (set #MSG_ICONPOS "Corrego posizione dell'icona")
  41.  
  42.     (set #MSG_NOHELP "Nessun aiuto disponibile. Sorry. Sono troppo pigro :-( Leggi il \"CopyIcon.guide\"!")
  43.  
  44.         (set #LANG_FOUND 1)
  45.        )
  46. )
  47.  
  48. (if (= 0 #LANG_FOUND)
  49.        (
  50.     (set #MSG_WELCOME "Welcome to the installation script for \"CopyIcon\".")
  51.     (set #MSG_WELCOME_WARN "\n\nYou are using an old version (<42) of the Installer. This might eventually cause problems!!")
  52.  
  53.     (set #MSG_SELECTEXEPATH "Where do you want the executable (\"CopyIcon\") to be copied?")
  54.     (set #MSG_SELECTDOCPATH "Where do you want the documentation (\"CopyIcon.guide\") to be copied?")
  55.  
  56.     (set #MSG_COPY_EXE "Copying CopyIcon")
  57.     (set #MSG_COPY_DOC "Copying documentation")
  58.     
  59.     (set #MSG_ICONPOS "Correcting icon position")
  60.  
  61.     (set #MSG_NOHELP "No help available. Sorry. I'm just too lazy :-( Have a look at \"CopyIcon.guide\"!")
  62.  
  63.        )
  64. )
  65.  
  66. ;==========================================================================
  67.  
  68. ;********
  69. ;*      *
  70. ;* MAIN *
  71. ;*      *
  72. ;********
  73.  
  74. (set #OSVERSION (/ (getversion) 65536))
  75.  
  76. (if (< (/ @installer-version 65536) 42)
  77.     (welcome #MSG_WELCOME #MSG_WELCOME_WARN)
  78.     (welcome "\n" #MSG_WELCOME)
  79. )
  80.  
  81. ;******************
  82. ;*                *
  83. ;* SELECT EXE DIR *
  84. ;*                *
  85. ;******************
  86.  
  87. (set #exedest
  88.     (Expandpath
  89.         (askdir (prompt #MSG_SELECTEXEPATH)
  90.             (default "SYS:Utilities")
  91.             (help #MSG_NOHELP)
  92.         )
  93.     )
  94. )
  95.  
  96. ;******************
  97. ;*                *
  98. ;* SELECT DOC DIR *
  99. ;*                *
  100. ;******************
  101.  
  102. (set #docdest
  103.     (Expandpath
  104.         (askdir (prompt #MSG_SELECTDOCPATH)
  105.             (default "HELP:")
  106.             (help #MSG_NOHELP)
  107.         )
  108.     )
  109. )
  110.  
  111. ;**************
  112. ;*            *
  113. ;* COPY FILES *
  114. ;*            *
  115. ;**************
  116.  
  117. (copyfiles (prompt #MSG_COPY_EXE)
  118.        (source "")
  119.        (choices "CopyIcon" "CopyIcon.info")
  120.        (dest #exedest)
  121.        (confirm)
  122.        (help #MSG_NOHELP)
  123. )
  124.  
  125. (copyfiles (prompt #MSG_COPY_DOC)
  126.        (source "")
  127.        (choices "CopyIcon.guide" "CopyIcon.guide.info")
  128.        (dest #docdest)
  129.        (confirm)
  130.        (infos)
  131.        (help #MSG_NOHELP)
  132. )
  133.  
  134. (if (exists (tackon #exedest "CopyIcon.info"))
  135.     (run    ("c/noiconpos %s" (tackon #exedest "CopyIcon"))
  136.         (prompt #MSG_ICONPOS)
  137.         (help #MSG_NOHELP)
  138.         (confirm)
  139.     )
  140. )
  141.  
  142. (if (exists (tackon #docdest "CopyIcon.guide.info"))
  143.     (run    ("c/noiconpos %s" (tackon #docdest "CopyIcon.guide"))
  144.         (prompt #MSG_ICONPOS)
  145.         (help #MSG_NOHELP)
  146.         (confirm)
  147.     )
  148. )
  149.  
  150. ;***********
  151. ;*         *
  152. ;* THE END *
  153. ;*         *
  154. ;***********
  155.  
  156.  
  157. (set @default-dest #exedest)
  158.  
  159.